program Project1; // Zadanie 3.10

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i, suma : Integer;

begin
  Writeln('Program sumuje liczby parzyste w przedziale od 1 do 100.');
  suma:=0;

  for i := 1 to 100 do
    if (i mod 2) = 0 then
      suma := suma+i;

  Writeln('Suma liczb parzystych w przedziale od 1 do 100 wynosi ', suma, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.

